<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select count(*) from WR_Say"
set rs = conn.execute(sql)
T_Total = rs(0)
rs.close
set rs=nothing
Set conn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select * from WR_Say order by Id Desc"
rs.open sql,conn,1
if not rs.eof then
rs.pagesize = 20
PageCount = rs.PageCount
PageNo = request("PageNo")
if not isnumeric(PageNo) then
PageNo=1
end if
if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo
i=0
while not rs.eof and i
留言人:
留言时间:<%=CTime%>